Unit Yardim;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, wwriched;

Type
  TYardimF = Class(TForm)
    HelpPanel: TPanel;
    Panel2: TPanel;
    BitBtn2: TBitBtn;
    wwDBRichEdit1: TwwDBRichEdit;
    Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
    Procedure BitBtn2Click(Sender: TObject);
    Procedure FormKeyPress(Sender: TObject; Var Key: Char);
    Procedure FormShow(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  YardimF: TYardimF;

Implementation
Uses data;

{$R *.dfm}

Procedure TYardimF.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin
  Action := CaFree;
  YardimF := Nil;
End;

Procedure TYardimF.BitBtn2Click(Sender: TObject);
Begin
  Close;
End;

Procedure TYardimF.FormKeyPress(Sender: TObject; Var Key: Char);
Begin
  If key = #27 Then Close;
End;

Procedure TYardimF.FormShow(Sender: TObject);
Begin
  YerAyarla(Self, False);
End;

End.
